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FRONT RUNNER: Fllp-lt II by Michael Prescott 

Atari version by Alan J. Zett. 

in this board game, you find your computer a formidable 

opponent as you match wits trying to outflank and capture 

one another's pieces. 
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DV Bonus Program: SUCCESS by Peter J. Favaro 
Is "success" defined in terms of Fame, Money, Hap- 
piness, or as a combination of all of these? They may 
all be yours, with a flip of a coin, in this unique board 
game. 
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Trapped by Al Harberg. 

It's trap or be trapped in this adaptation of an old 

Norwegian board game •j3 

Machine Language Sort Routines for the Atari 
Database by Paul Marentette. 
Take the tedium out of file sorting with these han- 
dy Machine Language sort routines 27 




Adventure Disk and Cassette Bonus 
SoftSlde Adventure Series: It's About Time 

by Peter Kirsch. 

Strolling in your neighborhood one day, you 

stumble upon a Time Machine. It propels you 

into the far future, where Henry Bowman's B 

Bomb has annihilated all you knew, is Earth 

doomed to heiifire? 29 



General Information 30 
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by Michael Prescott 
Atari® translation by Alan J. Zett 



Flip-It II Is a computerized version of ReversI for an Atari 400/800 
with 16K (24K disk) and a Joystick. 



Flip-It II is a computerized board game in which you and the computer 
match wits to outflank and capture one another's pieces on an eight-by-eight 
board. The computer is a formidable opponent, and you won't find it a trivial 
matter to win. 

The game begins with a square arrangement of four chips in the center of the 
board, two of them yours, and two belonging to the computer. You first 
choose a color and determine who will play first. You may also set up your 
own board (great for practicing strategies). 

The game's object is to place one of your chips in an unoccupied square so 
that it outflanks one or more of the computer's chips, i.e. surround the com- 
puter chips with one of your existing chips and the new one you're playing, in a 
straight line. When you accomplish this, all the computer's outflanked pieces 
become yours. This can happen in more than one direction. In any given turn, 
you might capture pieces horizontally, vertically, and diagonally, resulting in a 
substantial shift in the relative numlser of chips in one turn. The outcome of 
the game is rarely certain until the last few moves. 

Use the joystick to move the cursor horizontally, vertically, or diagonally 
from its current location, and press button zero to enter the move. The com- 
puter always checks to see that your move is legal and doesn't allow cheating. 
If neither of you has a possible move (which occasionally happens even before 
the board is filled), the game is over and the player with the greater number of 
chips is the winner. (The Atari indicates "I pass" with a "sighing" sound.) 
You may also press "Q" to quit at any time. 

Winning a game involves more than capturing as many pieces as you can on 
any given turn. Much more important to the eventual result is the position of 
your chips on the board. Capturing edge and (especially) corner squares, and 
preventing the computer from doing the same, pays off in the long run, even if 
it means outflanking only one square when you could get more elsewhere on 
the board. 



SoftSide Selections 



J 
1 



SoftSide Selections 

r 



FLIP-IT II - 
Variables 



A: Set equal to PDL. 
A(*): Decision-making array for com- 
puter's moves. 
A$: Data manipulator. 
B: Decision pointer. 
C: Capture pointer. 
CA: Capture loop variable. 
CHIP: On-the-fly token. 
CO: Key input variable. 
COLR: Sampler variable. 
CLS: Clear-screen code. 
CRS: Location of the cursor register. 
D: Loop variable. 
FL: Flip-piece flag. 
IP: "I pass" flag. 
KEY: Location of the keyboard 
register. 
OC: Token for computer's chip. 



OP: Color of computer's chips. 

PI: Number of chips captured. 

P2: Number of chips on board. 

P4: Sum of chips captured. 

PDL: Coordinates of chip-select 

cursor. 

Q: Substitution variable. 

RESET: Constant equal to 255. 

SPK: Location of the speaker register. 

ST: Stick value. 

SY: Number of your chips on board. 

X,Y,Z: Loop variables. 

XI, Yl: Point under consideration. 

X2,X3: Check loop variables. 

XX.YY: Plot variables. 

YC: Token for your chip. 

YOUR: Color of your chips. 

YP: "You pass" flag. 
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ATARI BASIC 
'FLIP-IT W 
AUTHOR: dlCHAEL PRESCOTT 
TRANSL: ALAN J. ZETT 
C0PYRI6HT (C) 1983 
SS SOFTSIDE PUBLICATIONS, INC SS 
SS SS 

SS SS SS SS SS SS SS SS SS SS SS 

If you don't wish to type this program, It 
Is available on #39 SoftSlde CV and DV. 

Initialization. 

10 NO=0:N1=1:N2=2:N3=3:N4M:N5=5!N7=7: 
N8=8:N10=10:N12=12!CLS=125;RESET=255:C 
RS=752!KEY=764:SPI';=53279 
100 GRAPHICS NO:POKE CRS, RESET:? :DII1 
A(iO),A$(120):2=Nl:60SUB 6O20:F0R X=N1 
TO LEN(ft*) STEP 2 
110 FL=N0:fl(Z)=ASCifi$O(.X))-48+(ASC(A$ 
(X+Nl , X+Nll ) -48) tNlO: Z=Z+N1 sNEIT X: CLQ 
SE «N1:0PEN «N1,4,0,"K"!60SLIB 5000 
120 PDL=N0!B=NO:FL=NO;B=C=D:P2=N4:SY=N 
2:PDL=N0!B=N0:F=N0 

Introduction. 

150 GRAPHICS N5:SETCDL0R N2,N0,N0:S£TC 
OLOR N4,N0,NO;SETC0L0R NO, NO, NO: COLOR 
NhPOKE CRS, RESET:? 
160 FOR X=N12 TO 39 STEP 0.5:S0UND NO, 
40,N4,(X-N12)/N3:PL0T X.NOiDRAHTO X,38 
:PLOT 7S-X,N0:DRAMT0 78-X,38:NEXT X 
170 COLOR NO:FOR X=N1 TO N7:PL0T N7tX+ 
n,NO:DRAWTO N7*X+11,39:PL0T N12,N5IX- 
NtiDRANTO 67,N5»X-N1:NEXT X 
180 FDR X=NO TO N7:F0R Y=N1 TO N12:SET 
COLOR N0,Y,N4:ft=(XtN12itYtN12:S0UND NO 
,A,N10,N4:S0UND Nl.Atl ,NI0,N4:NEXT Y 
190 NEXT X:SOUND N0,N0,N0,N0:S0LIN!) Nl, 
NO, NO, NO 

Get player's choice of color. 

200 SETCOLOR Ni,NO,N10:? CHR*(CLS1 ; "HH 

ICH COLOR'' (W/B)";;8ET »N1.A:IF A037 

AND A<.>6i THEN 200 

205 IF A=87 THEN yOUR=N2:OPPONENT=N3:S 

OTO 230 

210 IF A=66 THEN YOUR=N3:QPP0NENT=N2 



230 XX=14:YY=N2:C0LR=M1 

Prompt for type of game and choose 
who goes first. 

240 ? CHR«(CLS);"WANT TO BO FIRST? (Y./ 

N)";:GET IN1,A!F=N0;IF A=78 THEN 250 

245 F=N1:IF AOB9 THEN 240 

250 ? CHR»(CLS)i"MANT TO SET UP YOUR 

WN BANE? (Y/N)"!:GET »N1,A:IF A07B AN 

D A<.>89 THEN 250 

255 IF A=89 THEN GOSUB 6010:6010 4000 

260 TRAP 33333: GOSUB 6000: GOTO 600 

300 ST=STICK(N0) 

310 IF ST=15 THEN ST=NO 

320 IF ST=!4 AND PDL>N7 THEN PDL=PDL-N 

8 

330 IF ST=13 AND PDL<56 THEN PDL=PDL+N 

8 

340 IF ST=11 AND PDDNO THEN PDL=PDL-N 

1 

350 IF ST=N10 AND PDL>8 THEN PDL=PDL-9 

360 IF ST=9 AND PDL<56 THEN PDL=PDL+N7 

370 IF ST=N7 AND PDL<63 THEN PDL=PDL+N 

1 

380 IF ST=6 AND PDL>N7 THEN PDL=PDL-N7 

390 IF ST=N5 AND PDL<55 THEN PDL=PDL+9 

400 RETURN 

Set up new game. 

400 COLOR N3:X=45:G0SUB 1I60:X=54:60SU 

B 1160: COLOR N2:X=44: GOSUB 1160:X=55:6 

OSUB 1160 

610 POKE KEY, RESET 

620 IF F=N0 THEN 840 

Update bar chart of players' pieces, get 
player's command, and update the 
square select cursor. 

430 GOSUB 7000 

640 IF PEEK (KEY) =RESET THEN 800 

645 CO=PEEK(KEY):POKE KEY,RESET:IF C0< 

>47 AND C0O35 AND C0O21 THEN 800 

650 IF C0=47 THEN 2012 

652 IF C0=35 THEN 680 

654 GOSUB 700;60TO 800 

No-possible-move command. 

680 GOSUB 700: IF YP=N1 THEN 840 

6B2 SOUND N0,255,N12,15;F0R X=N1 TO 15 

0:NEXT X:SOUND N0,NO,NO,NO:GOTO 800 
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Find the best possible move. 

700 FL=N1:B=Y01)R:Y0UR=0PP0NENT:0PP0NEN 

T=Qi60SUB 2000: IF YP=N1 THEN 710 

702 FOR nX=Nl TO 20: IF (XXMNTIXU/N 

2)»N2)=N0 THEN COLOR NO 

704 IF ()iXX-INT(nK/N2)«N2)<>N0 THEN C 

OLOR Nl 

706 IF (X){X-INT()(XX/N5)»N5)<>N0 THEN G 

OSUB 1160 

708 NEXT XXX 

710 Q=yOUR:YOUR=OPPONENT;OPPONENT=Q:FL 

=N0: RETURN 

Update and display player's move. 

800 IF SY=NO OR P2-SY=N0 OR P2=6'1 THEN 

2010 
802 60SUB 300: IF fl=PDL THEN 810 
804 A=PDL:LOCATE XX,YY-N1,AZ:C0LDR AZ: 
PLOT XX,YY:XX=N7t(A-INT(A/N8)»N8)+14:Y 
Y=INT(A./8)«N5tN2:L0CATE XX,yY-Nl,COLR 
806 COLOR NO! PLOT XX, YY 
810 IF STRIG(N0)=N1 THEN 640 
812 IF COLRONl THEN 640 
820 P3=SY:C0L0R Y0UR:P4=NOiD=N0!F0R XX 
X=N1 TO N8!X=(fl-INT(A/N8)»N8)+Nl+N10»( 
INT(A/NB)+N1):P1=N0:B0SUB 980+XXXJ20 
822 P4=P4+P1:1F PIONO THEN D=D+N1 
830 NEXT XXX! IF D=NO THEN 640 
832 SY=SY+P4-D+N1:P2=P2+N1 

Find computer's best move and display 
It. 

840 IF SY=NO OR P2-SY=N0 OR P2=64 THEN 
2010 

842 60SUB 7000:GDSUB 2OO0;FDR XXX=N1 T 
42: IF (XXX-INT(XXX./N2)tN2)=N0 THEN C 
OLOR NO 

844 IF (XXX-INT(XXX/N2)tN2)<>N0 THEN C 
OLOR N! 

846 IF (XXX-INT(XXX/N3)»N3)=N0 THEN 60 
SUB 1160 

848 NEXT XXX!COL0R OPPONENT 
900 P2=P2tNl;Q=YOUR:Y0UR=OPPONENT!0PP0 
NENT=B:P4=N0!D=N0:F0R XXX=N1 TO N8:X=A 
(B)!P1=N0:G0SUB 980+20IXXX 
905 IF PIONO THEN D=D+N1:P4=P4+P! 
910 NEXT XXX:Sy=SY-P4+D 
920 Q=Y0UR! Y0UR=OPPONENT ! 0PPDNENT=8: LO 
GATE XX,YY-N!,C0LR!60T0 630 
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Search and capture pieces routines. 
Spaced every twenty lines. 

1000 X1=N7»(X-INT(X/N10)>N10)+N7:Y1=IN 

T(X/N10)IN5-N3:FOR X2=N1 TO N7:yi=yi-N 

5: IF YKNO THEN RETURN 

1005 LOCATE X1,Y1,I:IF Z=YOUR AND X2=N 

1 OR Z=N1 THEN RETURN 

1010 IF Z=OPPONENT THEN NEXT X2 

1012 IF X2=N8 THEN RETURN 

1014 eOSUB 1160!P1=X2:F0R X3=N1 TO X2: 

X=X-N10:60SUB lUOiNEXT X3:RETURN 

1020 Xl=N7»(X-INT(X/N10)»N10)fN7:Yl=IN 

T(X/N10)»N5-N3:F0R X2=N1 TO N7!Yl=yi+N 

5: IF Yl>38 THEN RETURN 

1025 LOCATE X1,Y1,Z:IF Z=YOUR AND X2=N 

1 OR Z=N1 THEN RETURN 

1030 IF Z=OPPDNENT THEN NEXT X2 

1032 IF X2=N8 THEN RETURN 

1034 GOSUB 1160:P1=X2!F0R X3=N1 TO X2: 

X=X+N10:GOSUB 1160:NEXT X3!RETURN 

1040 X1=N7>(X-INT(X/N10)»N10)+N7!Y1=IN 

T(X/N10)«N5-N3!FOR X2=N1 TO N7:X1=X1-N 

7! IF XKN12 THEN RETURN 

1045 LOCATE X1,Y1,Z:IF Z=YOUR AND X2=N 

1 OR Z=N1 THEN RETURN 

1050 IF Z=OPPONENT THEN NEXT X2 

1052 IF X2=N8 THEN RETURN 

1054 GOSUB 1160:P1=X2!F0R X3=N1 TO X2: 

X=X-N1:G0SUB 1160;NEXT X3:RETURN 

1060 Xl=N7»(X-INT(X/N10l»N10)tN7:Yl=IN 

T(X..'N10)tN5-N3:FOR X2=N1 TO N7:Xl=XltN 

7: IF Xl.>66 THEN RETURN 

1065 LOCATE Xl.Yl.ZilF Z=YOUR AND X2=N 

1 OR Z=N1 THEN RETURN 

1070 IF Z=OPPONENT THEN NEXT X2 

1072 IF X2=N8 THEN RETURN 

1074 GOSUB 1160!P1=X2!F0R X3=N1 TO X2: 

X=X+N1:G0SUB 1160:NEXT X3:RETURN 

1080 Xl=N7»!X-INT(X/N10)tN10)+N7:Yl=IN 

T(XyN10>»N5-N3:F0R X2=N1 TO N7jX1=X1-N 

7!Yl=yi-N5 

1082 IF XKN12 OR YKNO THEN RETURN 

1085 LOCATE X1,Y1,Z:IF Z=YOUR AND X2=N 

1 OR Z=N1 THEN RETURN 

1090 IF Z=OPPONENT THEN NEXT X2 

1092 IF X2=NB THEN RETURN 

1094 GOSUB 1160:P1=X2!F0R X3=N1 TO X2! 

X=X-ll!GOSUB 1160:NEXT X3!RETURN 



1100 X1=N7«(.!(-INT()(/N10)<N10)+N7:Y1 = IN 

T(X/N10)»N5-N3:FOR X2=N1 TO N7!.)(1=)(UN 

7!Y1=Y1-N5 

1102 IF n>66 OR VKNO THEN RETURN 

1105 LOCATE XI,Y1,2:IF Z=YOUR AND K2=N 

: OR Z=N1 THEN RETURN 

1110 IF 2=0PPONENT THEN NEU X2 

1112 IF X2=N8 THEN RETURN 

1114 BOSUB 1160:P1=X2:F0R X3=N1 TO X2! 

X=X-9:G0SUB 1160: NEXT X3: RETURN 

1120 X1=N7>(X-INT(X/N10)«N10.HN7:Y1=IN 

T(X/N10)tN5-N3:F0R X2=N1 TO N7:X1=X1+N 

7:Y1=Y1+N5 

1122 IF Xl>66 OR Yl>38 THEN RETURN 

1125 LOCATE X1,Y!,Z:IF Z=YOUR AND X2=N 

1 OR Z=N1 THEN RETURN 

1130 IF Z=OPPONENT THEN NEXT X2 

1132 IF X2=N8 THEN RETURN 

1134 BOSUB 1160:P1=X2!F0R X3=N1 TO X2! 

X=X+n:BOBUB 1160:NEXT X3:RETURN 

1140 Xl=N7»(X-INT(X/N10)»N10)tN7:Yl=IN 

T(X/N10)tN5-N3:FOR X2=N1 TO N7:X1=X1-N 

7:Y1=Y1+N5 

1142 IF XKN12 OR Yl>38 THEN RETURN 

1145 LOCATE X1,Y1,Z:IF Z=YOUR AND X2=N 

1 OR 2=N1 THEN RETURN 

1150 IF Z=OPPONENT THEN NEXT X2 

1152 IF X2=N8 THEN RETURN 

1154 GOSUB 1!60:P1=X2:F0R X3=N1 TO X2: 

X=X+9:G0SUB !160:NEXT X3;RETURN 

Plot chip at selected location. 

1160 X1=N7»(X-INT(X/N10)»N10)*N5:Y1=IN 
T(X/N10)JN5-N5:F0R X1=X1 TO X1+N5:PL0T 
X1,Y1:DRANT0 XI, Y1+N3:NEXT XI 
1165 FOR 2=N1 TO 6:P0KE SPK,N0:NEXT Z: 
RETURN 

Search! through the best moves for the 
computer. If none are found, pass or 
concede the game. 

2000 POKE 77, NO; IF P2-SY=N0 OR SY=NO T 
HEN 2010 

2001 IF FL=NO THEN IP=NO 

2002 IF FL=N1 THEN YP=NO 

2003 FOR B=N1 TO 60:X=A(B)!Xl=N7»iX-IN 
T(X/N10)tN10)+N7;yi=INT(X/N10)»N5-N3:P 
OKE SPK,N0:P0KE SPK,N0!LOCATE X1,Y1.Z 

2004 IF Z=N1 THEN GOSUB 3000 



2005 NEXT B;IF P2-SYON0 AND SYONO AN 
D FL=NO AND YP=N0 THEN 2008 

2006 IF P2-SYON0 AND SYONO AND FL=N1 
AND IP=NO THEN YP=N1: RETURN 

2007 GOTO 2010 

2008 !P=N1:F0R ST=170 TO 220:S0UND NO, 
ST,N10,N10:SOUND N1,ST+1,N10,N10:POKE 
SPK,N0!P0KE SPK,NO:NEXT ST 

2009 SOUND NO, NO, NO, NO: SOUND N1,N0,N0, 
NO: GOTO 630 

2010 FOR X=NO TO 200:SOUND N0,X,N12,6: 
NEXT X:SOUND N0,N0,N0,N0:GRAPHICS NO 
2012 POKE CRS, RESET:? "NO LEGAL MOVES 
LEFTI":? :IF P2-SY>SY THEN 2030 

2014 IF P2-SY=SY THEN 2040 
2020 ? "YOU HAVE HON BY ";N2<SY-P2;" C 
HIPS.":? :? "CONGRATULATIONS I ":60T0 20 
50 

2030 ? "I HAVE HON BY ";P2-N2tSYi' CHI 
PS.":? :? "THANK YOU FOR A STINULATING 
GAI1E.":60TO 2050 

2040 ? "CONGRATULATIONS. IT'S A DRAH." 
:? :? "HE APPEAR TO BE EVENLY HATCHED. 

H 

2050 FOR X=N1 TD N12:P0KE SPK,N0:P0KE 
SPK.NOjNEXT X:? :? "HOULD YOU LIKE TO 
PLAY AGAIN?":POKE KEY, RESET 
2060 CO=PEEK(KEY):IF C0=43 THEN POKE K 
EY,RESET:G0T0 120 



CRS, NO:? :? "GOOD BYE. 
2064 GOTO 2060 



:END 



The computer has found an empty 
square; now check to see If It Is legal to 
put a chip there and flip pieces. 

3000 FOR C=N1 TO N8:XS=N7t(X-INT(X/N10 

)»N!0)+6:Yl = INTa/N10)»N5-N3:POKE SPK, 

NO:POKE SPK,NO:GOSUB 2990+2010 

3005 NEXT C: RETURN 

3010 FOR D=N1 TO N7:Y1=Y1+N5:IF Yl>38 

THEN RETURN 

3012 LOCATE X1,Y1,Z;IF Z=N1 OR Z=OPPON 

ENT AND D=N1 THEN RETURN 

3014 IF 2=Y0UR THEN NEXT D 

3020 IF D=N8 THEN RETURN 

3022 POP ;POP :POP :POP :POP :GOTO 515 
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3030 FOR D=N1 TO N7;Y1=Y1-N5:IF YKNO 
THEN RETURN 

3032 LOCATE X1,Y1,Z:IF Z=N1 OR Z=OPPON 
ENT AND D=N1 THEN RETURN 
303A IF 2=Y0UR THEN NEXT D 
3040 IF D=N8 THEN RETURN 
3012 POP :POP :POP :POP iPOP :BOTO 515 


3050 FOR D=N1 TO N7:X1=X1-N7:1F XKN12 
THEN RETURN 
3052 LOCATE X1,Y1,Z:1F Z=N1 OR Z=OPPON 
ENT AND D=N1 THEN RETURN 
3054 IF Z=YOUR THEN NEXT D 
3060 IF D=N8 THEN RETURN 
3062 POP ;POP :POP iPOP :POP -.GOTO 515 


3070 FOR D=N1 TO N7:X1=X1+N7:IF Xl>66 
THEN RETURN 

3072 LOCATE X1,Y1,Z:IF Z=N1 OR Z=OPPflN 
ENT AND D=N1 THEN RETURN 
3074 IF Z=YOUR THEN NEXT D 
3080 IF D=N8 THEN RETURN 
3082 POP :POP :POP :POP :POP :BOTO 515 


3090 FOR D=N1 TO N7:X1=X1+N7:YI=Y1+N5! 
IF Xl>66 OR Y1>3B THEN RETURN 
3092 LOCATE X),Y1,Z:IF Z=N1 OR 2=0PP0N 
ENT AND D=N1 THEN RETURN 
3094 IF Z=YOUR THEN NEXT D 
3100 IF D=N8 THEN RETURN 
3)02 POP :POF :POP :P0P :POP :GOTO 515 


3110 FOR D=N1 TO N7!X1=XI-N7!Y1=Y1+N5! 
IF XKN12 OR Yl>38 THEN RETURN 
3112 LOCATE X1,Y1,Z:IF Z=N1 OR 2=0PP0N 
ENT AND D=NI THEN RETURN 
3114 IF Z=VOUR THEN NEXT D 
3120 IF D=N8 THEN RETURN 
3122 PGP :PDP :POP :POP :POP :6QT0 515 


3130 FOR D=N) TO N7:X1=X1-N7:Y1=Y1-N5: 
IF XKN12 OR YKNO THEN RETURN 
3132 LOCATE X1,Y1,Z:IF I=N1 OR Z=OPPON 
ENT AND D=N1 THEN RETURN 
3134 IF I=VOUR THEN NEXT D 
3140 IF D=N8 THEN RETURN 
3142 POP :POP :POP :PDP :POP :6DT0 515 




3150 FOR D=N1 TO N7:X1=X1+N7:Y1=Y1-N5: 

IF Xl>66 OR YKNO THEN RETURN 

3152 LOCATE X1,Y1,Z:IF Z=N1 OR 2=OPP0N 

ENT AND D=N1 THEN RETURN 

3154 IF Z=YOUR THEN NEXT D 

3160 IF D=N8 THEN RETURN 

3162 POP ;POP :POP :POP :POP :BOTO 515 



Set up your own game. 

4000 TRAP 33333: POKE CRS, RESET;? CHR$( 
CLS);»SET UP? (1=REGULAR, 2=«ANUAL)';: 
P2=N0:SY=N0 

4010 BET tNl,C0:POKE KEY,RESET:CO=C0-4 
8: IF C0<N1 OR C0>N2 THEN 4010 
4020 IF C0=N1 THEN 4250 
4050 ? CHR$(CLS)i "PRESS ESC MHEN FINIS 
HED/:'' "USE BUTTON TO SELECT SQUARE" 
4060 60SU8 300:A=PDL:L0CflTE XX,YY-N1,A 
ZiCOLOR AZiPLOT XX,YY:XX=N7»(A-INT(A/N 
8)tNB)+14!YY=INT(A/8)tN5+N2 
4062 LOCATE XX,YY-N1,C0LR:C0L0R NOiPLO 
T XX, YY 

4070 IF PEEK (KEY) =RESET THEN 4080 
4072 CO=PEEK( KEY): POKE KEY,RES£T:IF CO 
=23 THEN LOCATE XX.YY-Nl.AZsCOLOR AZ:P 
LOT XX,YY:BOTO 4160 
4080 IF STRIG!N0)=N1 THEN 4060 
4085 ? CHR$(CLS); 

4090 B=NO:Z=NO:? "MHICH COLOR? (W/B/B) 
";!GET #N1,ST:IF ST087 AND ST066 AND 
ST<!71 THEN 4085 

4095 X=(!A-INTiA/N8)»N8)tNl.H(N10t(lNT 
ift/N8)+Nl)):G0SUB 4240:L0CATE X1,Y1-N1 
,AZ:C0L0R N3:IF ST=e7 THEN COLOR N2 
4100 IF BT=71 THEN COLOR NhlF A2=N1 T 
HEN 4050 

4135 IF ST=71 THEN P2=P2-N1 
4140 GOSUB 1160: IF fiZ=Nl THEN P2=P2+N1 
4145 GOTO 4050 
4150 IF P2=N0 THEN 4140 
4155 GOSUB 4220!? "YOU'RE MAKINB UP TH 
IS GAME'";? "A PIECE COULDN'T GET THER 
E!":FOR X=N1 TO 300: NEXT X:GOTO 4050 
4160 X=44:60SUB 4240:V1=Y1+N1:L0CATE X 
UYl.ZilF 2=N1 THEN 4230 
4162 X=45:60SUB 4240:Yl=Yl+Nt!LQCftTE X 
l.VlJiIF Z=N1 THEN 4230 
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417U X=54:G0SUB 4240:Y1=Y1+N1:L0C.ATE X 
1,V1,Z:IF Z=N1 THEN 4230 
4172 );=55:60SUB 4240:yi=¥l+Nl;LOCATE X 
1,Y1,Z:IF 2=N1 THEN 4230 
4174 P2=N0:F0R Y=NI TO NS;FOR A=N1 TO 
N8 

4180 X=N10tY+A:G0SUB 4240:Y1 = Y1+N]:n = 
n+Nl:LOCATE X1,Y1,Z:IF 2=N1 THEN 4190 
4182 P2=P2+N1:IF Z=VOUR THEN SV=SY+N1 
4190 NEU AiNEXT YilF P2-SY=N0 OR SY=N 
THEN 4200 

4192 IF P2=64 THEN 4210 
41';'4 EOBUB 6000:GOTO 610 
4200 G05UB 4220:? CHR$(CLS); "YOU HAVE 
TO GIVE ME A CHANCE'":P2=N0:SY=N0:F0R 
S=N1 TO 300: NEXT XiGQTO 4050 
4210 GOSUB 4220:? CHR$(CLS)! "YOU DIDN' 
T LEAVE ANY R00t1!":F0R X=N1 TO 300: NEX 
T X:G0T0 4050 

4220 ? CHR$(CLS);:FOR X=N1 TO N12:P0KE 
SPK,N0:P0KE SPK,NO:NEXT X:RETURN 
4230 GOSUB 4220:? CHRKCLS); "THE CENTR 
AL SQUARES tlUST BE FILLED"';FOR X=N1 T 
300:NE.U X:GOTO 4050 
4240 Xl=N7»IX-INT(X./N10)tN101tN7:yi = IN 
ni(/N10.UN5-N3: RETURN 
4250 GOSUB 60uO:P2=N4:Sy=N2:60TO 600 

Print Instructions for game. 

50110 POKE CRS.RESETiPOSITION N2.N12:? 

"NEED INSTRUCTIONS? (Y/N)":6ET INl.ft:! 

F A=78 THEN RETURN 

5005 IF A039 THEN 5000 

5010 ? CHR$(C.LS)::POSniON 14. N2:? "_F 

LIP-IT ":? :? ' THE OBJECT OF THIS 

GAME JS TO" 
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"COMPLETELY FILL THE BOARD WITH 
"MANY PIECES OF YOUR COLOR AS Y 

II 

"TO DO THIS YOU MUST OUTFLANK Y 
'OPPONENT'S PIECES AND FLIP THE 

"YOUR COLOR. OUTFLANKING CAN OC 
"HORIZONTALLY, VERTICALLY. OR D 



5020 

AS"; 
OU CAN. 
5030 ' 
OUR':'? 
M TO" 
5040 ? 
CUR":' 
IA6-" 
5050 ■;• "ONOLLY. THE SAME ENDS WHEN THE 

BOARD":? "IS FULL OR WHEN BOTH PLAYER 
S CAN'T":? "HOVE. ":? 
5060 ? "WHOEVER HAS THE HOST PIECES HI 
NS.":P0SITION N5,23:? "(PRESS ANY KEY 
TO CONTINUE)"; 

50fr5 IF PEEK(KEY)=RESET THEN 5065 
5070 POKE KEY,RESET:6RAPHICS NO;POKE C 
RS,N1;P0SIT10N N2,N2;? "YOU MAKE MOVES 

BY MOVING THE CURSOR' 
5080 ? "WITH THE JOYSTICK 10 THE SQUAR 
E YOU":';' "DESIRE AND PRESS FIRE";? 
5091.1 - "DURING THE GAME YOUR CAN ALSO 
CHOOSE':? "ONE OF THE OPTIONS BY PRESS 
ING THE":? "KEY INDICATED:":? 
5100 ■} "Q - TO QUIT THE GAME";? :? "N 
- NOT ABLE TO MOVE":? :? "B - ASK FOR 
[HE BEST MOVE" 

5110 POSITION N7.23;? "(PRESS ANY KEY 
TO BEGIN)"; 

5130 IF PEEK(KEY)=RESET THEN 5130 
5140 POKE KEY. RESET 
5150 <=A(B); RETURN 
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Set up game colors and GRAPHICS 
mode. 
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4000 GRAPHICS N5+48 

6010 TRAP 33333: SETCOLOR N0,N12,8;SETC 
OLOR N1,N0,N10:SETC0LDR N2,N0,N0;SETC0 
LOR N4,9,6:RETURN 

Computer's game play strategy data. 

4020 ft$="11811B8B3141138314B6384fl33433 
4A64151148415B548584353346435651656425 
224742575475732622373267437472171" 
6030 A«(LEN(A*)tNl)='12821787287822722 
777':RETURN 



Graptiic bar ctiart for players' pieces. 

7000 COLOR N0:PL0T N0,41:DRAHT0 79,41: 

PLOT N0,44:BRfiMT0 79,44 

7010 IF (P2-SY)>N0 THEN COLOR OPPONENT 

:PLDT N12,41:DRAWT0 (P2-SYI+11,41 

7020 IF SY>NO THEN CDLOR YOUR:PLOT N12 

,44:DRAHT0 SY+11,44 

7030 RETURN 
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LINES 


CODE 


LENGTH 


LINES 


CODE 


LENGTH 


10 - 160 


ZI 


576 


2001 - 2014 


NH 


440 


170 - 250 


IJ 


536 


2020 - 3005 


V6 


509 


255 - 390 


61 


341 


3010 - 3052 


QT 


280 


400 - 682 


QT 


381 


3054 - 3100 


PH 


273 


700 - 812 


IH 


377 


3102 - 3150 


ZY 


322 


820 - 910 


ZA 


442 


3152 - 4072 


AY 


476 


920 - 1040 


DG 


449 


40B0 - 4162 


GE 


526 


1045 - 1085 


en 


387 


4170 - 4220 


ZF 


505 


1090 - 1125 


VQ 


398 


4230 - 5040 


HE 


573 


1130 - 2000 


HP 


411 


5050 - 5100 


VH 


534 








5110 - 7030 


RL 


492 
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by Peter Favaro 



Success is a board game for a 40K Atari® 400/800. It Is Included as 
the bonus program on Issue 39 Atari DV. See the coupon near the back 
of this booklet to order your disk. 

What is the best measure of success in life? Fame? Money? Knowledge? 
Happiness? You can win all of these — but not without risk. Success is a 
unique board game that combines group decision making, role playing, 
psychology, luck and video game skills. The term "board game" is misleading 
because most computer simulations of board games fail to explore the 
capabilities of the computer. They simply mimic popular board games like 
Monopoly. Success does not imitate any known board game because it is a 
mixed breed that combines adventure, arcade and board game characteristics. 



Choosing a Personality 

Success is a four-player game. Each player's first task is to 
choose a personality from four options: (1) Aggressive; (2) 
Impulsive; (3) Pragmatic or (4) Romantic. Your choice 
will affect your fate and your eventual success or 
failure. 
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If you choose an aggressive personality, you will 
experience consequences three times greater than normal. 
If you take a risk that turns out positive, your success for 
that turn will be multipUed by three. Conversely, your failure will 
be multiplied by three. Hard charging has advantages and disadvantages. 
The impulsive personahty will have his choices multiplied by a factor be- 
tween one and five. The result is determined by the computer and is different 
with every game. Impulsive types throw caution to the wind and put 
themselves in Fate's capricious hands. 

Pragmatic personalities let reason govern their choices and get even odds. 
Their fate is multiplied by a factor of one. Lovers have their fates influenced 
by a factor of two. 




Rating the Goals of Life 

After choosing their personalities, the players must decide the "goals of 
life" which define their version of "success." The options are: (1) Money; (2) 
Knowledge and Intellectual Curiosity; and (3) Health and Happiness. The 
computer will prompt each player to rate the options from one to ten. Part of 
the game involves guessing what the other players valued, so players should 
keep their ratings secret. At the end of the game, the computer will calculate 
the arithmetic mean of the ratings and multiply your score by the group rating 
factor in each category. 

At the start of the game, each player receives 500 dollars, 500 health and 
happiness points, and 500 knowledge and intelligence points. After the ratings 
are entered, the screen goes blank except for the statement which appears dur- 
ing the initialization process. The computer will pause for approximately thirty 
seconds while it sets up and moves the alternate character set into RAM. The 
main game board then appears with the prompt "ENTER PLAYER NO," 
and, at the four corners of the board, the Greek symbol "psyche," a boat, a 
car and a key. These are the symbols for the four players or "pieces" that will 
move around the board. 



Moving 

After Player One enters his number, the options menu appears. The options 
are "D" for dice roll, "M" for move the player, "F" for flip the card or "P" 
for pass to the next player. Player one now presses "D", and the dice roll to 
determine how many spaces to move. Flayers can move either forward or 
backward. Horizontally, a player may move around another player. Vertical- 
ly, a player can block another player. A player can block horizontally if both 
players occupy consecutive vertical spaces in both lanes. Sheer courtesy is 
sometimes all that lets you get around the board, so be nice to one another. 

After a player moves the required number of spaces, he may check to see if 
his piece is directly above, below, or next to one of the letters in the squares. If 
your piece is next to one of the squares, you may decide to take a "risk" and 
Flip over one of the cards. Before you Flip the card, you must press the 
joystick trigger to return to the "options" menu and terminate your move. 



Flipping A Card 

If you (Player One in this case) choose to Flip a card, another prompt will 
ask you which card. You may only Flip a card directly next to, on top of, or 
below you. Your choices are C for Chance, G for Gamble, K for Knowledge, 
M for Money, H for Health and Happiness, I for Intellectual Curiosity or R 
for Romance. Flipping a Money card, a Knowledge card or a Health and Hap- 
piness card generates a message that reveals your fate, and will be either 
positive or negative. For each category (K, H or M) you have eight possible 
choices ranging in value from 50 or -50 to 150 or -150. You know how much 
each fate is worth by the tone length which follows its completion. Long tones 
indicate greatest win or loss; increasing tone means positive outcome. Each 
time you win or lose, the results are multiplied by your personality factor. 

Here is an example: Let's say you chose an Aggressive personality. This 
means that your fate is multiplied by a factor of three. Suppose, also, that you 
have landed in a position which allows you to Flip the Money card. You take 
the risk. Flip the card and the message "RECENT SWAMP PURCHASE" 
appears. This unfortunate fate has a negative value of -150 dollars, and is 
multiphed by three, bringing your total loss to -450 dollars. 

Que sera, sera. To continue, in three corners, "task" cards open up into 
separate screens. The task cards are the Romance card, the Gamble card and 
the Intellectual Curiosity card. The Gamble card consists of the dice game 
"Over and Under." In it, you can win a fortune or lose your shirt. When you 
choose the Gamble card, a new screen and the prompt "PLACE YOUR BET" 
appear. You then type "1" for a bet of $50, "2" for a bet of $100 and "3" for 
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a bet of $150. The computer will 

prompt you for a choice of under, over or 

even. You must predict whether the dice roll will be under 

seven, over seven or even. Again, the outcome depends on your 

bet and your personaUty. in addition, a bet of even pays four to one. 

The Romance card requires arcade game type skills. This little subroutine is 
heartless. The game theme reads: You are about to get married and you realize 
that you are terribly late. Your intended is waiting at the church and is worried 
that you may not show up. You must drive your car, through traffic, to city 
hall to the wedding. If you have an accident, your prospective spouse assumes 
that you got cold feet and drives away without you. The only way to get to the 
church is to touch the blue line at the top of the screen. Be careful — moving 
out-of-bounds scores an accident, and a path to city hall may not always open 
up. Furthermore, I won't tell you which car actually moves. 

The reward, aside from not disappointing your wife or husband-to-be, is 
150 health and happiness points times your personality factor. Of course, you 
also lose that amount if you slip up. Be careful, marriage is a big deal. 

You may choose to take a risk on the Intellectual Curiosity card. Here the 
computer asks interesting trivia questions, each carrying a value of 50 to 150. 
Again, your wins or losses are multiplied by your personality factor. You can 
change lines 30815 to 30990 and add different questions to keep the game 
interesting. 

Finally, you may choose to take a Chance with the ? and Flip card "C". 
Some of these cards have behavioral, as well as money, knowledge and hap- 
piness implications. You may lose a turn or be forced to "Seek Advice" from 
another player. If the Seek Advice card turns up, you must let another player 
move for you. The Leave Of Absence card means losing five turns. Flipping 
the Take Control card allows you to take over someone else's turn and in- 
fluence their fate. You might also "Become A Sex Symbol," which earns both 
money points and health and happiness points. Winning the lottery or a 
scholarship earns money points and big knowledge, respectively. 



Winning the Game 

The game ends when the computer decides you've had enough. Actually, a 
random number generated at the beginning of the program limits the number 
of turns each player will take (somewhere between 25 and 40 turns) before 
jumping to the last subroutine which recaps events and presents tallies. 

Success can get very complicated. You must know which squares to risk and 
predict how each of your opponents rated each goal. The rating feature makes 
the game different every time; you can play it over and over, with very dif- 
ferent outcomes. You may discover other applications for some of the 
subroutines. The dice roll and alternate character set routines are economical 
and you can use them elsewhere. The Romance game is a very short 
subroutine, but demonstrates how easily you can develop arcade games in the 
text modes. A possible future take-apart may make these concepts more in- 
structive. In any case, I hope you enjoy your new found "success." 
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Trapped is a board game for an Atari® 400/800 with 32K RAIVI and a 
dlsl( drive. 

Trapped is a strategy and logic game which originated in Norway in the late 
1800's. My grandfather brought it with him when his family moved to the 
United States at the beginning of this century. As children, we used to play 
Trapped using a scrap of paper, three pennies and a dime. To this day, I can't 
out-play my brother — but my Atari can! 

Here's how you play: One player has three green "chasers," which try to 
corner their opponent. The other player has one blue "runner," whose mis- 
sion is to avoid being "trapped." If you Uke, you can play against the com- 
puter. You may choose to be the chasers, trying to trap the elusive computer 
runner, or you can be the runner and test your strategy against the computer's 
chasers. 



Here's the main menu: 



A. Two-player game 

B. One-player game — you're the runner 

C. One-player game — you're the chaser 

D. Instructions 

E. Exit 



VnftViAo Volantinvtt! 



M 



SoftSide Selections 14 

^ TRAPPED >. 

You can see, from the main menu, that Trapped gives you five options: If 
you select option A, you'll play against another human player. If you select 
option B, you'll challenge the computer. The computer's three green chasers 
will try to trap you in the corner. Selecting option C also pits you against the 
computer. This time, however, you'll have three chasers, and you'll try to trap 
the computer's runner. Select option D to review the complete instructions for 
playing Trapped, and option E to return to DOS. 

Figure 1 represents the Trapped playing field: 

CID 1:23 C3] 

I \ I / I \ 
I \ I / I \ 
I \ I / I \ 
1 \ I / I \ 
I \ I / I \ 

I'M C5: C6: CO] 

I / I \ I / 
I / I \ I / 
I / I \ I / 
I / I \ I / 
I / I \ I / 
L71 C83 C?] 



As the game begins, the three chasers are in blocks one, four and seven. The 
runner is in block five. 

The runner and the chasers take turns moving from block to block. The run- 
ner always has the first move and every time he moves successfully, he scores a 
point. 

For the runner, the purpose of the game is to avoid getting trapped, and a 
high score is a good score. The chasers try to trap the runner as soon as possi- 
ble. For them, a low score is a good score. 

The chasers win the game when they trap the runner in block zero and they 
reside in blocks three, six and nine. The chasers lose if they trap the runner in 
any block other than block zero. 

To move the runner, press the number of the box you want him to move to. 
To move the chasers, you must press two keys: The number of the box they are 
in, and the number of the box you want them to move to. The little box in the 
lower right corner of the screen tells you whose turn it is. 



Program Notes 

Trapped consists of three programs. TRAPl is the title program and draws 
a graphics 23 screen consisting of six concentric squares. Then, it draws a 
graphics two screen with the program's and author's names. If you need game 
instructions, TRAPl will call TRAP2, the Instructions program. If not, it will 
call TRAP3, the game logic program. TRAP2 allows you to read the rules of 
the game. At the end of the instructions it runs TRAP3, which offers the game 
options. 
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Variables (TRAPl and 
TRAP 2) 

The Q's are integers. I renamed the 
most frequently used integer con- 
stants as variables to speed up the 
drawing of the boxes. 
A, B, C, D: The coordinates of the 
boxes; used in the FOR/NEXT loops 
which draw them on the screen. 
I, J: The FOR/NEXT control 
variables. 
I, J: FOR/NEXT loops of Trap2. 



Variables (TRAP3) 

NOW$: A string of ten values which 
shows what colors are contained in 
boxes one-nine and zero. Values are 
green (G), blue (B) and white (W). 
GAMES: Contains the letters A 
through E, and corresponds to the 
menu options described above. 
ERRORS: A string which indicates 
whether or not a move is valid. 
Values are yes (Y) and no (N). 
TURNS: Keeps track of whose turn it 
is; values are blue (B) and green (G). 
BMOVES: A string which tracks 
blue's destination boxes. For exam- 
ple, if blue's first move is from box 
five to box two, then BMOVES(l,l) 
will be set to "2". 
BOXl: The number of the box the 
player is moving from. 
BOX2: The number of the box the 
player is moving to. 
BOX: Work variable for 
manipulating moves. 
BMOVE: Count of the number of 
moves blue has made so far. 
I, J, K, L, X, Y: Control variables in 
FOR/NEXT loops. 
V$, V, VO, VSW: Work areas used 
in the "Rainbow Code." 
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Atari BASIC 
'Trapped Part 1' 
Author: Allen Harberg 
Copyright (c) 1983 



SS 
SS 
SS 
SS 
SS 



SS SoftSide Publications, Inc SS 
SS SS 

SS SS SS SS SS SS SS SS SS SS SS 

If you don't wish to typ« this program, It 
Is also available on SoltSlde Issue #39 
CV and DV. 

Initialization. 

3002 Bl=liQ0=fll-Ql:Q2=QU81:Q3=Q2+Ql:Q 
4=Q3+Q1 ; Q5=Q4+Q1 : Q6=95+Q1 : Q7=B6tBI :QB= 
B7+Bl:B9=B3+BhB10=B5+B5 

3003 Q12=B6+Qi 

3005 A=Ql!B=B2!C=B3:D=143 

3006 GRAPHICS 23: COLOR 81 
Draw vertical boxes. 

3010 FOR I=DO TO Q5 
3020 FOR J=B0 TO BIO 

3025 SOUND BO, (J+Q1)«(UB1), (I+BUIB2. 
(1+Bl)«fl2 

3026 SOUND Ql, (J+Bl)»(I+QlltQ2, (I+B1)« 
B2, II+Bl)tB2 

3027 SOUND B3, (J+Q1)«(I+B1)»Q3, (1+B1)» 
S2,(1+B1)»B2 

3028 SOUND B2, (J+Q1)«(I+Q1)»Q4, (i+ai)« 
B2, (I+Bl)tB2 

3030 PLOT ft+(I»Q12)+J,B+(I«B7) 

3040 DRAHTO A+(l«Q12)tJ,B+C-(I»B7) 

3050 PLOT A+148+J-(l»Q12),B+{(I+BI)«fl7 

) 

3060 DRAHTO A+148+J-(l»B12),B+90-(I«Q7 

) 

3070 NEXT J 

Draw horizontal boxes. 

3080 FOR J=BO TO B5 

3085 SOUND BO, (J+Q1)«(UQ1) 
(UB1)»B2 

3086 SOUND Bl,(J+fll)»( 
82,(1+01)102 

3087 SOUND B3, (J+B1)MI+B1)>B3, (I+BD* 
82, (I+B1)»B2 

3088 SOUND 82, (J+Q1)«(I+Q1)»Q4, (1+Q1)» 
82, llffll)»B2 

3090 PLOT Q7+((I+B1)»11),B+J+(I»S7) 



,(I+QI)»Q2, 
(I+Q1)«Q2,I1+B1)« 



3100 DRAMTO A+153-(I«11),B+J+(UB7) 

3110 PLOT 07+(I»ll),B+85+J-(I»B7) 

3120 DRAHTO A+141-(I»ll),B+85<-J-(I«7) 

3130 NEXT J 

3140 NEXT I 

Draw the center box (not used). 

3145 GOTO 3151 

3150 FOR J=B1 TO 15:PL0T 72tJ,44:DRAHT 
72+J,50:MEXT J 

3151 FOR H=B1 TO 150!NEXT U 
Draw the Trapped title. 

3170 GRAPHICS B2:SETC0L0R B4,B1,B4:P0K 

E 752,81 

3175 SETCOLDR B0,Q1,Q0:SETC0L0R B2,B1, 

B4:SETC0L0R 81,01,80 

3180 POSITION 86,85:? I6| "TRAPPED" 

3190 FOR 1=81 TO 150:NEXT I 

3210 ? " (C) 1982 by Al Harberg" 

3216 FOR 1=1 TO 777:NEXT I 

Ask if the user needs instructions. If so, 

run TRAP2. if not, run TRAP3. 

3220 GRAPHICS ISiSETCOLOR 04,B10,BO:PO 

SITION Q7,B2:? 16; "DO yOU":POSlTION 08 

,B4!? )t6j"NEED" 

3230 POSITION Q4,B6:? 16; "INSTRUCTIONS 

?" 

3240 IF PEEK (764) =255 THEN 3240 

3250 X=PEEK(764):PQKE 764,255 

3260 IF X=43 THEN GOSUB 3300:RUN "D:TR 

AP2" 

3270 IF X=35 THEN GOSUB 3300: RUN "D:TR 

AP3" 

3280 SOUND 80, 150, 810, 010: FOR I=B1 TO 

30!NEXT I:BOTO 3220 

3300 SOUND B0,Q0,O0,BO;S0UND Ql,8O,Q0, 

BO:S0UND 82,80,BO,fiO:SOUND 83,80, BO, BO 

: RETURN 
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For ATARI® 
TRAPPED PART 1 
SWAT 



LINES 



CODE 



LENGTH 



3002 
3050 
3130 
3230 



3040 
3120 
3220 
3300 



2F 
XY 
GA 
UY 



378 
396 
348 
271 



ss ss ss ss ss ss ss ss ss ss ss 
ss ss 

ss Atari BASIC SS 
SS 'Trapped Part 2' SS 
SS Author: Allen Harberg SS 
SS Copyright (c) 1983 SS 
SS SoftSide Publications, Inc SS 
SS SS 

SS SS SS SS SS SS SS SS SS SS SS 

6000 POKE 764,255 

6010 GRAPHICS OiSETCOLOR 4,4,2!SETC0L0 

R 2,4,2 

6015 POKE 752,1 

6020 ? 

6030 ? " 1 2 3" 
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6040 ? " 

6050 ? " 

6060 ? " 

6070 ? • 

6080 ? " 

6090 ? " 4- 

6100 ? " 

6110 ? " 

6120 ? ■ 

6130 ? " 

6140 ? " 

6150 ? " 7- 

6160 ? 

6170 ? 

6180 ? "As the gaaie begins, the three 

green" 

6190 ? 'chasers are in blocks 1, 4, an 

d 7." 

6200 FOR 1=1 TO 5 

6210 POSITION 3,l!? " "iPOSITION 3,7:-' 

" ": POSITION 3,13 
6220 FOR 0=1 TO 99 
6230 POSITION 3.1:? 

"£":POSITION 3,13: 
6240 FOR J=l TO 166:NEn J 
6250 NEH I 
6260 POSITION 2,19 
6270 '^ 'The blue runner is in block 5. 

6280 FOR 1=1 TO 5 

6290 POSITION 9,7:? " " 

6300 FOR J=l TO 166: NEXT J 



NEXT J 

"r;POSITION 3,?;? 
? "7" 



6310 POSITION 9,7:? "5' 

6320 FOR J=l TO 166: NEXT i 

6330 NEXT I;6QSUB 6390 

6340 POSITION 2,16 

6350 ? "The blue runner and the green 

chasers" 

6360 ? "take turns running froii black 

to block" 

6370 ? "The blue runner has the ^rst 

Bove.":? " 

";? :? 
6380 BOSUB 6880;G0SUB 6390: GOTO 6430 
6390 FOR 1=16 TO 22 
6400 POSITION 0,1 

6410 FOR J=l TO 5:? " ";;NEXT J 
6420 NEXT hRETURN 
6430 POSITION 2,16 

6440 ? "The green chasers win the gane 
when" 
6450 ? "the blue runner is trapped in 
square 0" 
6460 FOR 1=1 TO 5 
6470 POSITION 21,7:? " ' 
6480 FOR 0=1 TO 30: NEXT 
6490 POSITION 21,7:? "0" 
6500 FOR 0=1 TO 166:NEXT J 
6510 NEXT I 
6520 POSITION 2,19 

6530 ? 'And the green chasers occupy e 
quares" 

6540 ? "3, 6, and 9." 
6550 FOR 1=1 TO 5 

6560 POSITION 15,1:? " ":POSITION 15,7 
i? " ":POSITIQN 15,13:? " " 
6570 FOR 0=1 TO 166:NEXT i 
6580 POSITION 15,1:? "3.":P0SITI0N 15,7 
:? ■6":P0Sni0N 15,13:? "9" 
6590 FOR 0=1 TO 166: NEXT 
6600 NEXT I 
6605 GOSUB 6BB0 

6610 GRAPHICS 0:SETCOLOR 2,4,2:SETC0LO 
R 4,4,2:P0KE 752,1 
6620 '> :^ 

6630 ? "There are 3 wavs to play TRAPP 
ED:':? 

6640 ? "A 2-PERSON GAME":'' 
6650 ? "1 1-PERSON BANE":'' 
6660 ? " yOU'RE THE BLUE RUNNER, AND" 
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;7 

6670 ? 



THE GREEN COMPUTER TRIES TO' 



6680 ? " TRAP YOU"!? 

6690 ? "C 1-PERSON SftNE":? 

6700 ? " YOU'RE THE GREEN CHftSERS, AN 

D ":? 

6710 ? " YOUR JOB IS TO TRAP THE BLUE 

■i? 

6720 ? " COMPUTER RUNNER." 

6730 GQSUB 6880 

6740 GRAPHICS 0:SETCOLOR 2,4,2!BETC0L0 

R 4,4,2:P0KE 752,1 

6760 ? "Green players sake their iiDveB 

by':? 
6770 ? "pressing 2 keys:":? 
6780 ? " . The t of the bo)! that the 
y're in.":? 

6790 ? " . The » of the box that the 
y":? 

6B00 ? " want to iove to.":? 

6810 ? "Blue players can «ake their no 
ves":? 

6820 ? "in the sane Hay. Since there 
is":? 

6830 ? "only 1 blue player, you can sa 
ve"!? 

6840 ? "tise by just pressing the box 
I":? 

6B50 ? "that you want to love to." 
6860 BOSUB 6880 
6865 GOSUB 6920 

Run TRAP3, the game logic program, 
while the user Is still reading the last 
Instruction screen. 

6870 RUN "D:TRAP3" 
6830 REM 



This subroutine handles the "Press Any 
Key To Continue" logic, and can be 
transplanted to other BASIC programs. 

6890 POSITION 2,22:? " PRESS ANY KEY TO 

CONTINUE " 
6900 IF PEEK(76A)=255 THEN 6900 
6910 POKE 764, 255: RETURN 
6920 GRAPHICS 0:SETCOLOR 2,4,2:SETC0LD 
R 4,4,2:P0KE 752,1 

6930 ? "The little box in the lo»er-ri 
qht":? 
6935 ? "corner of the screen will tell 

you"!? 
6940 ? "whose turn it is ..."!? :? :? 
6945 ? "And be careful not to trap the 

blue":? 

6950 7 "runner in any box other than b 
ox 0":? 

6955 ? "... otherwise, blue wins!"!RE 
TURN 

SWAT 




For ATARI® 
TRAPPED PART 2 





SWAT 




LINES 


CODE 


LENGTH 


6000 - 6100 


jy 


315 


6110 - 6220 


AA 


342 


6230 - 6340 


GN 


337 


6350 - 6460 


LE 


435 


6470 - 6580 


HK 


400 


6590 - 6690 


NN 


362 


6700 - 6820 


TO 


487 


6830 - 6930 


BM 


399 


6935 - 6955 


TH 


210 




SB ss ss ss ss ss ss ss ss ss ss 



ss 
ss 
ss 
ss 
ss 



ss 
ss 
ss 
ss 
ss 



Atari BASIC 

"Trapped Part 3' 

Author: Allen Harberg 

Copyright (c) 1983 

SS SoftSide Publications, Inc SS 

SS SS 

SS SS SS SS SS SS SS SS SS SS SS 

Initialization. 

11 POKE 764,255 

15 DIM GAMEt{l),ERROR$(l):ERROR$="N" 

20 DIM NOH$(10):NOH$(l,10) = 'G«tlBBWGWH« 

II 

30 DIM TURNt(l):™N«(l,l)="B' 

40 BOn=0!BO)(2=0 

50 DIM B«0VE$(15):BM0VE«(1,15)='' 

60 BMOVE=0 
80 6010 7000 

100 GRAPHICS 7+l6:SETCDLDR 4,12,2 

101 SETCOLOR 0,2,12 

102 SETCOLOR 1,1,4 

103 COLOR I 



Draw Boxes. Use the upper-ieft corner 
the boxes for control. 

120 FOR 1=0 TO 70 STEP 35 

140 FOR J=0 TO 70 STEP 35 

145 RESTORE 270 

150 PLOT I+1,J+1 

160 FOR K^l TO 4 

170 READ L:READ M 

180 DRAWTO ItL,J+M 

190 NEH K 

200 PLOT I,. J 

210 FOR K=! TO 20 

212 SOUND 0,100+K,K,I'; 

213 BOUND 1,101+K,K,I'; 

214 SOUND 2,Ki2+K,l';,K 

215 SOUND 3, 103+K,K,K 
220 READ L,N 

230 DRAHTO I+L,J+M 

240 NEXT K 

250 NEXT J 

260 NEXT ! 

270 DATA 19,1,19,19,1,19,1,1 

280 DATA 4,0,4,2,16,2.16,0,20,0 



of 



290 DATA 20,4,18,4,18,16,20,16,20,20 

300 DATA 16,20,16,18,4,18,4,20,0,20 

310 DATA 0,16,2,16,2,4,0,4,0,0 

315 SOUND 0,0,0,0!SOUND 1,0,0,0!SQUMD 

2,0,0,0:S0UND 3,0,0,0 

330 RESTORE 270 

340 PLOT 106,36 

350 FOR K=l TO 4 

360 READ L,M 

370 DRAWTO L+105,N+35 

380 NEXT K 

390 PLOT 105,35 

400 FOR !';=1 TO 20 

410 READ L,M 

420 DRAMTO 105+L,35+H 

430 NEXT K 



Draw six horizontal and six vertical 
connectors. 

450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
56U 



FOR 1=20 TO 56 STEP 35 
FOR J=6 TO 76 STEP 35 
PLOT I,J:DRAWTO [+15, J 
PLOT J.hDRAHTO J, 1+15 
PLOT I,J+1:DRA«T0 1+15, J+1 
PLOT J+1,1:DRAWT0 J+1, 1+15 
PLOT 1,J+7:DRA«T0 1+15, J+7 
PLOT J+7, I: DRAWTO J+7, 1+15 
PLOT I,J+8!DRAWT0 1+15, Jt8 
PLOT J+8,I:0RAHT0 J+8.I+15 
NEXT J 
NEXT I 



Draw the horizontal connector to Box 0. 

580 FOR 1=90 TO 105 
590 PLOT I, 41: DRAWTO 1,42 
600 PLOT I,48:DRAWT0 1,49 
610 NEXT 1 
Draw the diagonal connectors. 

630 FOR 1=1 TO 36 

640 READ L,M,N,0 

650 PLOT L.M: DRAWTO N,0 

660 NEXT I 

670 DATA 16,21,34,39,16,69,34,51 

680 DATA 17,21,34,38,17,69,34,52 

690 DATA 18, 21, 34, 37, 18,69,34,53 

700 DATA 21,16,39,34,21,74,39,56 

710 DATA 21, !V, 38, 34, 21, 73, 38, 56 

720 DATA 21,18,37,34,21,72,37,56 

730 DATA 86,21,104,39,86,69.104,51 
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740 DATA 87,21,104,38,87,69,104,52 
750 DATA 88,21, 104,37,88,49, 104, 5J 
760 DATA 91,16,109,34,91,74,109,56 
770 DATA 91,17,108,34,91,73,108,56 
780 DATA 91,18,107,34,91,72,107,56 
790 DATA 51,56,69,74,51,34,69,16 
800 DATA 52,56,69,73,52,34,69,17 
810 DATA 53,56,69,72,53,34,69,18 
820 DATA 56,51,74,69,56,39,74,21 
830 DATA 56,52,73,69,56,38,73,21 
840 DATA 56,53,72,69,56,37,72,21 

Fill In all ten boxes. Lines 950 to 1070 
are the subroutine to fill In a box, given 
the co-ordinates of Its upper-left corner. 

855 COLOR 2 

860 FOR )(=0 TO 70 STEP 35 

870 FOR Y=0 TO 70 STEP 35 

975 RESTORE 1010 

880 60SUB 950 

890 NEU y 

900 NEXT \ 

905 RESTORE 1010 

910 )(=105 

920 Y=35 

930 eOSUB 950 

940 GOTO 1080 

950 REM 

955 GOTO 1030 

960 PLOT X+2,Y+2 

970 FOR 1=1 TO 12 

980 READ L,I1 

990 DRAHTO L+X.N+Y 

1000 NEXT I 

1010 DATA 3,2,3,18,2,18,2,17,18,17,18, 

18,17,18,17,2 

1020 DATA 18,2,18,3,2,3,2,2 

1030 FOR I=!(f4 TO X+16 

1032 SOUND 0,I»2,I-X,I-X 

1033 SOUND l,It2+l,l-X,l-X 

1034 SOUND 2,U2+2,I-X,I-X 

1035 SOUND 2,I>2+3,!-X,I-X 
1040 PLOT I,Y+4 

1050 DRANTO I,Y+16 
1060 NEXT I 
1070 RETURN 
1080 REM 
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Fill In the horizontal and vertical 
connectors. 

1090 FDR 1=18 TO 54 STEP 35 

1100 FOR J=8 TO 78 STEP 35 

1110 FOR K=0 TO 4 

1120 PLOT I-l,JtK 

1130 DRAHTO 1+20, J+K 

1132 PLOT J+K, 1-1 

1134 DRAttTO J+K, 1+20 

1140 NEXT K 

1150 NEXT J 

lliO NEXT I 

1170 FOR 1=87 TO 108 

1180 PLOT 1,43 

1190 DRAKTO 1,47 

1200 NEXT I 

Fill In the diagonal connectors. 

1220 FOR 1=14 TO 18 
1230 PLOT 1,74 
1240 DRAHTO 1+58,16 
1250 PLOT 1+70,74 
1260 DRA«TO 1+93,51 
1270 NEXT I 
1280 FOR 1=72 TO 76 
1290 PLOT 1,74 
1300 DRAHTO 1-58,16 
1310 PLOT 1+12,16 
1320 DRAHTO 1+35,39 
1330 NEXT I 

1335 SOUND 0,0,0,O:SDUND 1,0,0,0:S0UND 
2,0,0,0:SOUND 3,0,0,0 

Rainbow code. First I jump over It; then I 
GOSUB It. This code Is relocatable. You 
can move It to your own BASIC 
programs. In Graphics 7, It runs a 
rainbow through everything drawn with 
COLOR 2. 

1350 TIME=30!GOSUB 1370 

1360 GOTO 1490 

1370 IF VS«=1 THEN GOTO 1400 

1380 DIM V$(1),V(5) 

1390 V0=ADR(V*)+1:VSH=1 

1400 POKE V0,INT(TIME/5+l):P0KE VO+1,1 

50: POKE VO+2,255 

1410 POKE V0+3,104:VH=INT(V0/256)!VL=V 

0-(VH«256):P0KE VO+4,206 

1412 IF VL<254 THEN 1420 



1414 POKE V0+5,VL-254iPDKE V0+6,VH+1;G 

OTQ 1425 

1420 POKE V0+5,VL+2:P0KE V0+6,VH 

1425 POKE VO+7, 208: POKE V0+B,11:P0KE V 

0+9,206 

1427 IF VK.255 THEN 1430 

1428 POKE VQ+10,0;POKE VO+U.VH+hGOTO 
1435 

1430 POKE VOtlO,VL+l:POKE V0+11,VH 
1435 POKE V0+12,20B:P0KE V0tl3,6 
1440 POKE V0+14,206:P0KE V0+I5,VL;P0KE 

V0+16,VH:P0KE V0+1B,208:P0KE V0+1S,1 
1450 POKE V0+19,96:P0KE V0+20,232:PDKE 

VD+21,142:P0KE V0t22, 10:P0KE VO+23,21 
2:P0KE V0+24,142:PDKE VO+25,23 
1460 POKE V0+26,208:P0KE V0t27,24:P0KE 

VQ+28,144:P0KE VO+29,230 
1470 DUMHY=USR(V0+3): RETURN 

Put the green Chasers in boxes 1, 4 and 
7. Put the blue Runner In box 5. Draw 
the "Whose turn Is It?" box. 

1490 COLOR 

1500 L=0;M=0:SOSUB 1560 

1510 L=0:M=35:60SUB 1560 

1520 L=0:N=70:60SUB 1560 

1530 COLOR 3 

1540 L=35:M=35:B0SUB 1560 

1550 60SUB 2800: GOTO 1600 

1560 REM 

1570 FOR I=L+4 TO L+16:PL0T !,l1+4:DRflW 

TO I,Mtl6 

1580 NEXT I 

1590 RETURN 




1604 IF TURN$= 
1406 IF TURN»= 



THEN 1650 

THEN 80SUB 9000:60T0 



Main control logic. The program 
examines which menu option you're 
playing and whose turn It Is. 

1600 REM 

1602 COLOR 2;PL0T 150,86!DRAWT0 158,86 

:DRANTO 158,90:DRA»T0 150,90:DRANT0 15 

0,86 

B" THEN COLOR 3 
'G' THEN COLOR 

1608 FOR T=151 TO 157:PL0T T,87:DRflNTD 
T,89:NEn T 

1609 GOSUB 13100 

1610 IF TURN»= 
1620 IF BflME«="B" 

4000 

1630 GOSUB 5000 

1640 BOn=BO)[:IF 80X1=0 THEN B0X1=10 
1645 GOTO 1730 
1650 REM 
1660 IF 6AME$="C' THEN GOSUB 8200:G0T0 

4000 

1670 GOSUB 5000: BOX 1=B0X 
1675 IF BOX1=0 THEN 80X1=10 
1680 IF N0«*(B0X1,B0X1)="B" THEN 1730 
1690 REM 
1700 80X2=80X1 

1710 FOR 1=1 TO lOilF N0N$(I,1)<>"B" T 
HEN NEXT I 

1720 BOXl=I:G0TO 1740 
1730 GOSUB 5000:B0X2=B0X 
1735 IF BOX2=0 THEN B0X2=10 

Are you moving to an empty box? Are 
you really In the box you're trying to 
move out of? Are the two boxes 
connected? 

1740 REN 

1745 IF NOH«(BOX2,B0X2.K>"W" THEN 60SU 

B 5140:6010 1600 

1760 IF N0Ht(BOXl,BOXl)<>IURN$ THEN GO 

SUB 5140:G0T0 1600 

1780 GOSUB 8000; IF ERROR»="Y" THEN 60S 

UB 5140:6010 1600 

1790 GOlO 4000 

This Is an interruption to the main logic 
(which continues at line 4000). This is 
the logic which moves from BOX1 to 
B0X2. 

20OO REM 

2030 B0X=8DX1:IF BOX=IO THEN BOX=0 
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2040 60SUB 2100 

2050 L=X:M=Yi60X=B0X2:IF B0X=10 THEN B 

0X=0 

2055 60SUB 2100 

2060 N=X;0=Y 

2070 GOSUB 2300 

2072 B0X=B0X1:1F B0X=10 THEN BOX=0 

2074 GOSUB 2700 

2076 B0X=B0X2:IF B0X=10 THEN BOX=0 

2078 GOSUB 2700 

2080 RETURN 

Locate the box co-ordinates and show 
the move by changing box colors. 
2100 REM 

2110 IF BOX=0 THEN X=105:y=35;RETURN 
2120 IF B0X=1 THEN X=0!Y=0: RETURN 
2130 IF B0X=2 THEN X=35:y=0:RETURN 
2140 IF B0X=3 THEN X=70:y=0:RETURN 
2150 IF B0X=4 THEN X=0:y=35: RETURN 
2160 IF B0X=5 THEN X=35:y=35: RETURN 
2170 IF BDX=6 THEN X=70:y=35:RETURN 
2180 IF B0X=7 THEN X=0:y=70: RETURN 
2185 IF B0X=8 THEN X=35!y=70: RETURN 
2190 IF B0X=9 THEN X=70:y=70:RETURN 
2300 REM 

2310 FOR 1=0 TO 12 
2315 COLOR 2 

2320 PLOT L+4,l1HH:DRflWT0 L+16,«+I+4 

2321 GOSUB 2400 

2322 IF TLIRNt="B" THEN COLOR 3 

2323 IF TLIRN»='6" THEN COLOR 4 

2325 PLOT Nt4,OM+4:DRftWT0 N+16, 0+1+4 
2330 NEXT 1 

2335 SOUND 0,0,0,0:SOUND l,0,0,0iS0UND 
2, 0,0,0: SOUND 3,0,0,0 
2340 RETURN 



Make noise 


as you move from box to 


box. 




2400 REM 




2410 SOUND 0,1112,10,! 


2420 SOUND 


l.M«2+l,10,I 


2430 SOUND 


2,l1t2+2,10,I 


2440 SOUND 


3,M«2+3.10,I 


2450 FOR W= 


1 TO 3: NEXT W 


2460 SOUND 


0,0»2+10,10,I 


2470 SOUND 


1,0«2+11,10,I 


2480 SOUND 


2,012+12,10,1 


2490 SOUND 


3,0»2+13,10,I 



2499 RETURN 

Data statements for the numerals. 

2600 DATA 27,111,41,3,0,5,0,3,8,5,8,1, 

2,1,6,7,2,7,6,2,1,2,7,6,1,6,7 

2610 DATA 23,6,6,3.0,6,0,2,1,6,1,4,2,4 

,7,5,2,5,7,2,8,7,8 

2620 DATA 43,41,6,2,0,5,0,1,1,6,1.1,2 
2,2,6,2,6,5,7,2,7,4,5,4,5,6 

2621 DATA 4,5,4.7.3,6.3,7,2,7.2.7,1,8 
7,8 

2630 DATA 47,76,6,2,0,6,0,1,1,1,2,2,1 
6,1,7,1,7,3,6,3,6,5,5,3,5,5 

2631 DATA 4,4,4,4,7,5,7,8,1,6,1,7,2,7 
6,7,2,8,6,8 

2640 DATA 27,6,41,1,0,1,4,2,0,2,5,3,4 
7,4,3,5,7,5,5,0,5,7,6,0,6,7 

2650 DATA 43,41,41.1.0,7,0.1,1,7.1,1.2 
,2,2,6,2,7,2,1,3,2,3,1,4,6,4 

2651 DATA 7,5,7,7,1,6,2,6,1,7,6,7,1,8, 
6,8 

2660 DATA 39,76,41,2,0,6,0,1,1,3,1,6,1 
,7,1,1,2,1,7,2,2,2,8,3,8,5,8 

2661 DATA 3,4,6,4,6,4,6,8,7,5,7,7 
2670 DATA 27,6,76,1,0,7,0,1,1,6,1,4,2, 
5,2,3,3,4,3,3,4,3,8,4,4,4,8 

26B0 DATA 43,41,76,3,0,5,0,3,3,5,3,2,1 

,2,2,6,1,6,2,2,4,6,4,2,8,6,8 

2681 DATA 1,5,1,7,2,5,2.7,6,5,6,7,7,5, 

2690 DATA 27,76,76,2,0,5,0,2,4,5,4,1,1 
,1,3,2,1,2,3,6,0,6,8,7,0,7,8 




Draw the numerals In the boxes. 

2700 REM 

2720 RESTORE 2600+BOXJlO 

2730 COLOR 1 

2740 READ A1,A2,A3 

2750 FOR 1=1 TO (Al-3)/4 

2760 READ A4,A5,A6,A7:PL0T A2+A4,A3+A5 

:DRAWTD A2+A6,A3+A7 

2770 NEXT I 

27B0 RETURN 

Draw all ten numerals whan you first 
draw the board. 

2800 REM 

2810 FOR BOX=0 TO 9:60SUB 2700:NEU BO 

XrRETURN 

This Is the continuation of the main 
logic. When you leave a box, mark It as 
empty. When you enter a box, mark It as 
full. GOSUB 2000 to show It on the 
playfleld. 
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4000 REM 

4005 XX=B0X1;1F XX=0 THEN XX= 

4010 N0H«(XX,XX)="W" 

4015 XX=B0X2:IF XX=0 THEN XX= 

4020 NO««(XX,XX)=TURN« 

4030 GOSUB 2000 

Check If Green has won the game. 

4050 IF N0«$='NH6WWGH«GB" THEN 4900 

Check If Blue Is trapped somewhere 
except in Box 0. 

4070 IF N0H$="B6«6BWNMMH" 

4030 IF N0N«='GBGU6WHklWH" 

4090 IF N0W$="G««BGH8WHH" 

4100 IF N0H$="««NSGHB6Hr 

4110 IF NDW$="WIIHNG«GBGW" 

Check whose turn it Is. 

4130 IF TURN<='G" THEN rURN$= 

1600 

4140 TURN$=°G":TURN=TLIRN+1:G0T0 1600 

Green trapped Blue iiiegaiiy. 
4800 REM 



THEN 4800 
THEN 4800 
THEN 4800 
THEN 4800 
THEN 4800 



"B':GQTO 



4805 SOUND 1,133, 
EXT I 

4810 GOSUB 13000 
4820 GOTO 7000 



12,12:F0R 1=1 TO 99:N 



Green wins. 
4900 REM 
4915 GOSUB 1370 
4917 GOSUB 12000 
4920 GOTO 7000 
4930 REM 

Get a valid box number. This routine 
uses keyboard values, not ATASCII 
values. 

5000 REM 

5010 IF PEEK(764)=255 THEN 5010 

5020 X=PEEK(764):P0KE 764,255 

5030 IF X=50 THEN BOX=0: RETURN 

5040 IF X=31 THEN B0X=1:RETURN 

5050 IF X=30 THEN B0X=2:RETURN 

5060 IF X=26 THEN B0X=3:RETURN 

507O IF X=24 THEN B0X=4:RETURN 

5080 IF X=29 THEN B0X=5:RETURN 

5090 IF X=27 THEN B0X=6:RETURN 

5100 IF X=51 THEN B0X=7:RETURN 

5110 IF X=53 THEN B0X=8: RETURN 

5120 IF X=4B THEN B0X=9: RETURN 

5130 SOUND 0,130, 10, 12:F0R 1=1 TO 30:N 

EXT hSOUND 0,0,0,0:60TO 5010 



Make some noise. 






5140 REM 








5150 SOUND 0,1 


20,12 


10;F0R 1=1 TO 30;N 


EXT 1 








5160 SOUND 0,0 


,0,0: RE TURN 


Main Menu. 








7000 REM 








7010 GRAPHICS 


IBiSETCOLOR 4,12,0 


7020 POSITION 

E" 

7030 POSITION 

E" 

7040 POSITION 


1,0:? 


»6i 


■A 2-PLAYER GAM 


1,2:-' 


»6; 


"1 1 PLAYER GAM 




«6; 


"YOU'RE THE RUN 


NER' 








7050 POSITION 

E" 

7060 POSITION 


1,5:? 


#6; 


»C 1 -PLAYER GAM 


3,6;? 


U; 


"YOU'RE THE CHA 


SER- 








7070 POSITION 


1,8:? 


16: 


"D INSTRUCTIONS 


7080 POSITION 


1,10; 


? (16 


!"E EXIT PR06RA 



M" 

7090 IF PEEK (7641=255 THEN 7090 
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7100 X=PEEK( 764); POKE 764,255 

7105 TLIRN$=»B":N0H$="BHHGBM6Nt»H":TURN= 

0:BI10VE=0 

7110 IF X=6J THEN 6AHE$="A":60TO 100 

7120 IF X=21 THEN GAHE$="B":6aT0 100 

7130 IF )(=1B THEN 6AHE«="C":60T0 100 

7140 IF X=58 THEN RUN "D;TRAP2' 

7150 IF X=42 THEN GRAPHICS 0:DOS 

7170 POKE 755,6:S0UND 0, 150, 12,12:F0R 

1=1 TO 50:NEXT I 

7180 POKE 755,2:S0UND 0,0,0,0:G0T0 700 



Make sure that the boxes are connected. 

8000 REN 

8005 Y=B0Xl!lF Y=10 THEN y=0 

8010 RESTORE SIOO+Y 

8020 READ X 

8030 IF X=9'? THEN ERROR*="y":RETURN 

8035 Z=B0X2:IF Z=10 THEN Z=0 

3040 IF X=Z THEN ERROR$="N":RETURN 

8050 BOTO 8020 

8100 DATA 3,9,6,99 

8101 DATA 4,5,2,99 

8102 DATA 1,5,3,99 

8103 DATA 5,2,6,0,99 

8104 DATA 1,7,5,99 

8105 DATA 4,1,7,2,8,3,6,9,99 

8106 DATA 5,9,3,0,99 

8107 DATA 4,5,8,99 
6108 DATA 7,5,9,99 
8109 DATA 5,8,6,0,99 

In game variation C, [>\cV. the best 
escape route for Blue. 

8200 REM 

8202 IF N0W«="WWGNGWW6BW" THEN B0X1=9: 

B0X2=0:ERR0R«="N";RETURN 

0204 IF NOH$="WBBHGWNWGH" THEN B0X1=3: 

B0X2=0:ERR0R$='N":RETURN 

3210 FOR 1=1 TO 10 

8220 IF NOW$(I,I)<>"B" THEN NEXT I 

3230 IF lOlO THEN POP 

8240 B0X1=I:IF 80X1=10 THEN B0X1=0 

3250 RESTORE 8100+BOXl 

8255 FOR J=l TO 12 

3260 READ X 

8270 IF J!=99 THEN ERROR«="¥'!POP :RETU 

RN 



8275 IF X=0 THEN X=10 
8280 IF NOW$(X,X)="H" 
! RETURN 
8290 NEXT J 



THEN B0X2=X:P0P 



Here is Green's iogic for the first 3 
moves under game variation "B". 

9000 REH 

9015 B«0VE=BN0VE+1:B0SUB 9870 

9020 IF BM0VE=1 THEN B0X1=4:B0X2=5:RET 

URN 

9030 IF BI10VE=3 THEN 9110 

9035 IF BI10VE>3 THEN 9140 

9040 IF BI10VE*(1,1)='2" OR BM0VE$(1,1I 

="9" THEN PATTERN=1:60T0 9100 

9050 IF BHaVE*(l,l)='3» OR B«0VE»I1,1) 

="B" THEN PATTERN=2:60T0 9090 

9070 IF B«0VE*(2,2)="9" THEN PATTERN=2 

:GDTO 9090 

9080 PATTERN=1:G0T0 9100 

9090 B0X1=7:80X2=8!RETURN 

9100 B0X1=1;B0X2=2:RETURN 

9110 REM 

9120 IF PATTERN=1 THEN B0X1=7:B0X2=8;R 

ETURN 

9130 B0Xl=l!B0X2=2:RETURN 

Here is Green's iogic for moves 4 
through 12 of game variation B. Ail of 
Green's moves are i<eyed off of the box 
number that Blue Is in after Blue has 
completed four moves. 

9140 REN 

9160 IF BI10VE«(4,4)=''6' THEN 9200 

9170 IF B«0VEt(4,4)="0" THEN 9400 

9180 IF BI10VE»(4,4)="9" THEN 9600 

9190 IF B«0VE«(4,4)=''3' THEN 9800 

After four moves, Blue is In box 6. 

9200 REH 

9210 IF BH0VE=4 THEN B0X1=8;B0X2=9:RET 

URN 

9220 IF BM0VE=5 AND BM0VE$(5,5)="0" TH 

EN BOX1=5:BOX2=3!RETURN 

9230 IF BM0VE=6 AND BN0VE*(5,5)="0" TH 

EN B0X1=2:B0X2=5:RETURN 

9240 IF BI10VE=7 AND B«OVE$(5,5)="0" TH 

EN BQX1=5!B0X2=6:RETURN 

9260 IF BM0VE=5 THEN B0Xl=9;BOX2=b:RE1 

URN 




9270 IF BH0VE=6 THEN BOI(l=5!B0X2=9:RET 

URN 

9280 IF BN0VE=7 THEN 60X1=6: 80X2=5: RET 

yRN 

9290 IF BN0VE=8 AND BN0VE«(8,B)='6" TH 

EN B0X1=2;B0X2=3:RETURN 

9300 IF B«0VE=9 AND BH0VE»(8,8)="6" TH 

EN B0X1=5:B0X2=4:RETURN 

9310 IF BM0VE=8 THEN BOX 1=5:60X2=3: RET 

URN 

9320 IF BH0VE=9 THEN B0X1=2:B0X2=5;RET 

URN 

9330 IF BN0VE=10 THEN B0Xl=5:B0X2=i:RE 

TURN 

After tour moves, Blue Is In box 0. 

9400 REM 

9410 IF BI1DVE=4 THEN BDX1=8:B0X2=9:RET 

URN 

9420 IF BH0VE=5 AND B«0VE$(5,5)='6" TH 

EN B0X1=2:B0X2=3:RETURN 

9430 IF BM0VE=6 AND BI10VE«(5.5) = '6" TH 

EN B0X1=5:B0X2=6:RETURN 

9440 60SUB 9260: RETURN 

After four moves, Blue Is in box 9. 

9600 REM - AFTER 4 MOVES, BLUE IS ON S 

QUARE «9 

9610 IF BM0VE=4 THEN B0X1=2:B0X2=3:RET 

URN 

9620 IF BM0VE=5 AND BM0VE$(5,5)='6" TH 

EN B0Xl=8:BOX2=9:RErURN 

9630 IF BM0VE=6 AND BM0VE$(5.5)="6" TH 

EN BOX1=5:BOX2=6:RETURN 

9640 IF B«0VE=5 THEN B0X1=5:B0X2=9:RET 

URN 

9650 IF BMQVE=6 THEN B0X1=8:B0X2=5:RET 

URN 

9660 IF eM0VE=7 THEN B0X1=5:B0X2=6;RET 

URN 



After four moves, Blue Is In box 3. 

9800 REM 

9810 IF BM0VE=4 THEN B0X1=8;B0X2=9;RET 

URN 

9820 IF BM0VE=5 AND B«0VE«(5,5)="6" TH 

EN B0X1=2:B0X2=3:RETURN 

9830 IF BH0VE=6 AND BM0VE«(5,5)="6" TH 

EN B0X1=5:B0X2=6:RETURN 

9840 IF BM0VE=5 THEN B0X1=5:B0X2=3;RET 

URN 

9850 IF BM0VE=6 THEN BOX 1=2: 80X2=5: RET 

URN 

9B60 IF BM0VE=7 THEN BOX1=5:BOX2=6:RET 

URN 

9870 REM 

9880 FOR 1=1 TO 12 

9890 IF NO«$(I,I)<>"B" THEN NEXT I 

9895 IF 1=10 THEN 1=0 

9900 POP :BMOVE$(BMOVE,B«OVE)=STR«(I) 

9910 RETURN 

Green wins. 

12000 REM 

12010 GRAPHICS 2 

12020 SETCOLOR 4,7,0:SETCOLOR 2,7,0 

12030 POSITION 5,2:? #6; "GREEN «INS" 

12040 POSITION 9,4:? «6;'IN" 

12050 POSITION 6,6:' #6; TURN;" TURNS!" 

12060 POKE 752,1:? " PRESS ANY KE 

V TO CONTINUE" 

12065 SOUND 0,RND(A)»100,10, 10 

12066 SOUND 1,RND(B)«100,10,10 

12067 SOUND 2,RND(C)tl00,10, 10 

12068 SOUND 3,RND(D)«100,10, 10 
12070 IF PEEK(764)=255 THEN 12065 
12075 SOUND 0,0,0,0:SOUND l,O,0,O:SOUN 
D 2,0,0,0:SOUND 3,0,0,0 

12080 POKE 764, 255: RETURN 
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Green traps Blue Illegally. 

13000 REM 

13010 GRAPHICS 2:SETC0L0R 4.5,0:SETC0L 

OR 2,5,0 

13020 POSITION 5,2!? #6; "Mue WINS" 

13030 POSITION 3,4:? 16; "BECAUSE gree 

n" 

13050 POSITION 6,6:'' tt6i"MflDE AN" 

13060 POSITION 4,8:? #6; "ILLEGAL TRAP" 

13070 POKE 752,!:? " PRESS ANV KE 

Y TO CONTINUE" 

73071 SOUND 0,RND(ft)tlOO,10,10 

13072 SOUND 1,RND(B:i<100,10, 10 



13073 SOUND 2,RND(C)»100,10,10 

13074 SOUND 3,RND(D)tl00,I0,Ki 

13075 IF PEEK (764) =255 THEN 12065 

13076 SOUND 0,0,0,0:SOUND 1,0,0,0!SOUN 
D 2,0,0,0:SOUND 3,0,0,0 

13080 POKE 764,255:RETURN 

13100 IF TURNt="6" THEN SOUND 1,160,10 

,4:F0R 1 = 1 TO lOrNEXT hSOUND 1,0,0,0: 

RETURN 

13110 IF TURNt="B" THEN SOUND 1.120.10 

,4:F0R 1=1 TO 10:NEn I:SOUND 1.0,0.0: 

RETURN 
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LINES 


CODE 


LENGTH 


LINES 


CODE 


LENGTH 


11 - 103 


JE 


375 


2420 - 2620 


GN 


496 


120 - 213 


NX 


240 


2621 - 2680 


XO 


517 


214 - 310 


WP 


242 


2681 - 2810 


KJ 


279 


315 - 430 


SS 


322 


4000 - 4110 


2A 


283 


450 - 560 


«F 


356 


4130 - 5000 


2M 


214 


580 - 700 


B6 


258 


5010 - 5120 


CX 


368 


710 - 820 


JU 


360 


5130 - 7060 


VK 


511 


830 - 920 


WT 


216 


7070 - 7180 


GD 


516 


930 - 1030 


JI 


219 


3000 - 8103 


VB 


211 


1032 - 1110 


VS 


286 


3104 - 8230 


60 


275 


1120 - 1220 


MR 


180 


8240 - 9030 


CR 


267 


1230 - 1335 


HU 


344 


9035 - 9160 


ZV 


424 


1350 - 1427 


ME 


473 


9170 - 9290 


LS 


542 


1428 - 1500 


n 


527 


9300 - 9620 


EH 


535 


1510 - 1604 


UQ 


351 


9630 - 9870 


EP 


501 


1606 - 1675 


BI 


277 


9880 - 12060 


SK 


353 


1680 - 1790 


QT 


274 


12065 - 13030 


ZL 


528 


2000 - 2080 


EQ 


236 


13050 - 130S0 


TL 


510 


2100 - 2300 


KU 


432 


13100 - 13110 


VH 


212 




1 

^ 


310 - 24 


10 


XS 


384 









Machine Language Sort 
Routines For The Atarf 
Database 

by Paul Marentette 

Users of the Atari® version of SoftSide's Developing Database have trouble 
maintaining large data files because the BASIC sorting routines are slow. 
However, you can't beat Machine Language at speedy sorting. With the 
routines presented here, you can sort a file of 100 names and addresses in 
under two seconds. 

You can call Machine Language routines by a BASIC program with the 
USR function. In its simplest form, the USR call specifies, in parentheses, the 
starting address of the machine code. For example, X = USR(1536). 

You may have seen such a USR call in many BASIC programs. The decimal 
address 1536 is commonly used because it begins page six of memory (hex- 
adecimal address $600), which is a popular, "protected" area for storing short 
Machine Language routines. 

An even better protected area for storing Machine Language is within a 
string variable. You can press string variables into service only if the machine 
code is entirely relocatable (containing no absolute address references to loca- 
tions within itself). Relocatability is essential because a string variable can 
move around in memory as a BASIC program changes size (as from 
modifications). 

I used string-variable storage for the Database sort routine which is installed 
into the string SRT$ through the CHR$ function at the beginning of the 
(modified) Database program. You will notice a short delay while the machine 
code is READ from DATA statements. Aside from this trivial difference, the 
Database program functions exactly as before, but sorting is now fast! 

The USR call passes several sort parameters to the Machine Language 

routine: 

1) What is to be sorted; 

2) The length of each record; 

3) The number of records; 

4) The order in which to sort the items. 

Just before issuing the USR call, the location of the sort key field is POKEd 
into decimal memory locations 207 and 208. 



Two versions 

The shorter sort routine is for the sequential version of the Database (Soft- 
Side, December, 1981). The other is a slightly more complicated routine for 
use with the random-access version (SoftSide, Issue #30) which sorts both the 
selected field (1$) and the corresponding random-access pointers (P$). 

The sequential version of the sort routine is actually a multi-purpose routine 
that you can adapt, through slight modifications, to other applications. Just 
plug the appropriate variables into the USR call. You must present the data to 
be sorted in one very long string, and every record must be the same length. 
The values you POKE into locations 207 and 208 must be the starting and end- 
ing positions of the field on which you want to sort. These values are 

■^ ' 
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displacements, or offsets, from the first byte of the record, so the first byte is 
byte 0, the second byte is byte 1 , and so on. 

To add the routines to the sequential Database program, load it, delete lines 
1780 to 1950, inclusive, then type Program Listing 1 exactly. 



Program Listing 1 

112 DIN SRT$(159)!F0R 1=1 TO 159:REflD 
A:SRT$(I)=CHR$(ft);NEXT I 

114 DflTfl 104,201,4,240,15,168,240,5,10 
4, 104, 13i,20B,251, 132,213, 169,1,133,21 
2,96,104,133,216,104,133,215,104 

115 DATA 104,133,218,104,133,213,104,1 
33,212,104,104,133,217,169,0,133,209,1 
33,214,162,1,165,215,133,205,165,216 

116 DATA 133,206,24,165,205,133,203,10 
1,218,133,205,165,206,133,204,105,0,13 
3,206,164,207,169,1,197,217,240,10 

117 DATA 177,205,209,203,144,21,240,12 
,176,38,177,205,209,203,144,32,240,2,1 
76,7,196,208,176,24,200,144,223 

118 DATA 169,1,133,209,164,218,136,177 



,205,72, 177,203, 145,205,104, 145,203, 19 
2,0,208,241,232,224,0,208,2,230 
119 DATA 214,228,212,208,172,165,213,1 
97,214,208,166,165,209,201,0,208,144,1 
69,0,133,212,133,213,96 
1780 SOSUB 140:? "(A) ASCENDING, OR (D 
) DESCENDINS'-.SET «N2,A!lF CHR$(A)='A" 
THEN A=NO;BOTO 1810 
1790 IF CHR«(A)="D" THEN A=N1:G0T0 181 


1800 60T0 1780 

1810 SB=Jl»IL;EB=Jl»IL+IL-NliPOKE 207, 
SB: POKE 208, EB 

1820 ? :? "SORTING.. .'i!l=USR(ADR(SRTt 
),ADR(It),RL,NHNl,A) 



To modify the random-access Database program, load it, delete lines 2020 
to 2150, inclusive, and type Program Listing 2 exactly. 



Program Listing 2 

131 DIN SRT$(215):F0R I=N1 TO 215:READ 
A;SRT$(I)=CHR$(A):NEXT I 

132 DATA 104,201,5,240,15,168,240,5,10 
4, 104, 136,208,251, 132,213, 169, 1, 133,21 
2,96,104,133,216,104,133,215,104 

133 DATA 141,251,6,104,141,250,6,104,1 
04,133,218,104,133,213,104,133,212,104 
,104,133,217,169,0,133,209,133,214 

134 DATA 162,1,165,215,133,205,165,216 
,133,206,173,250,6,133,222,173,251,6,1 
33,223,24,165,205,133,203,101,218 

135 DATA 133,205,165,206,133,204,105,0 
, 133,206,24, 165,222, 133,220, 105,3, 133, 
222,165,223,133,221,105,0,133,223 

136 DATA 164,207,169,1,208,2,208,188,1 
97,217,240,10,177,205,209,203,144,21,2 
40,12,176,55,177,205,209,203,144 



137 DATA 49,240,2,176,7,196,208,176,41 
,200,144,219,169,1,133,209,164,218,136 
,177,205,72,177,203,145,205,104 

138 DATA 145,203,192,0,208,241,160,3,1 
36,177,222,72,177,220,145,222,104,145, 
220,192,0,208,241,232,224,0,208 

139 DATA 2,230,214,228,212,208,134,165 
,213,197,214,208,128,165,209,201,0,208 
,162,169,0,133,212,133,213,96 
2020 SOSUB 250;? "(A) ASCENDING, OR (D 
) DESCENDIN6";6ET »N2,A!lF CHR»(A)="A' 

THEN A=NO:GOTO 2050 
2030 IF CHR$(A)="D" THEN A=N1:G0T0 205 


2040 GOTO 2020 

2050 ? :? "SORTING.. ."!:POKE 207,N0:P0 
KE 208,L-N1:T=USR(ADR(SRT$),ADR(I$),AD 
R(Pt),L,NI+Nl,A) 

Be particularly careful about the DATA statements, and SAVE the Program 
before you RUN it. This precaution will save reinstallation of this modifica- 
tion if a mistyped number causes your Atari to "lock up." 
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"In this adventure, I will become your eyes, ears, and hands," says your 
computer. You are about to enter a new fantasy world. Each issue, SoftSide 
DV and CV present the latest challenge to your ingenuity and perseverance. 
For those unfamiliar with the genre, the fantasy/ adventure game places you in 
a puzzling situation, usually in a strange, unfamiliar world, but sometimes in a 
world enough like your own to lull you into a false sense of security. Your first 
goal is, often, simply to survive. However, success at even this basic task can 
be doubtful. Perplexing situations will certainly test your ingenuity and 
perseverance, and perhaps you will glean great treasures. But dragons and 
desperadoes may oppose you — you never know. 

To "win" a fantasy/adventure game, you have to solve the puzzles and 
overcome the obstacles that confront you. Death is transitory — you can 
always re-run the program. Aficionados of adventures carefully map the loca- 
tions in the game's world. If you have an exceptional memory, you may skip 
this exercise.... Now, was the cave with the ruby-encrusted scepter north or 
east of the beach? Hmmm... 

You act by giving your computer simple, one- or two-word commands, like 
"LOOK", or "GET RUBY". The introduction to each adventure explains 
this more fully. 

One issue after the appearance of an adventure, SoftSide will publish en- 
crypted hints for it. The encryption will prevent you from inadvertently seeing 
the hints, but will be simple enough to permit easy reading if an adventure 
truly stumps you. 

To begin the adventure, just RUN the program named "INTRO" on your 
disk, or select the adventure from the DV menu. On cassette, the adventure is 
the last program, and the INTRO program immediately precedes it. 
Memory requirements for all adventures — 32K tape, 40K disk. 
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^ General Information ^ 

These are the standard procedures for the programs published in 
SoftSide Selections. Sometimes, a particular program does not lend 
itself to these procedures. Always read the specific instructions ac- 
companying a program. They will instruct you if there are any 
variances from the following procedures. Also, back issues of Soft- 
Side Magazine may differ in some details. 



SWAT 
TMXUl 

At the conclusion of each program listing in SoftSide Seiections, 
we include a SWAT (Strategic Weapon Against Typos) Table. SWAT 
for the Atari appeared in SoftSide Issue #30. If you missed Issue #30, 
we'll send you a free reprint of SWAT. Send a self-addressed, stamped 
envelope to: 

SoftSide Publications, Inc. 
Department SWAT 
6 South Street 
Milford, NH 03055 

Be sure to tell us that you have an Atari computer. 




Magnetic Media 

Disks do not carry the DOS.SYS and DUP.SYS files, and are not 
"bootable." First, boot a disk with DOS on it, then insert the SoftSide 
Selections disk, and run "D:COVER". Our disks are in DOS 2 format. 

Tapes CLOAD in the normal manner, if you encounter difficulty, try 
this procedure: 

1. POKE 54018,54 

2. Turn up the volume on your TV. 

3. Type CLOAD, and press RETURN once. 

4. Press the play button, and listen. 

5. When you hear the steady leader tone, press RETURN again. 
Side two of the tape is a duplicate of side one. 

SoftSide Seiections disks and tapes are duplicated on reliable, pro- 
fessional equipment. Bad copies are exceedingly rare. Nevertheless, 
the trip through the mail occasionally results In damage to the sen- 
sitive magnetic media. If, after a reasonable number of attempts on 
well-adjusted, clean equipment, you are unable to load a program, 
return it to us along with an exact explanation of your problem. We 
will send you a replacement. 

SoftSide Selections media are not copy protected. We urge you to 
make an archival backup copy of your disk or tape as soon as you 
receive it, as our replacement policy is valid only for 30 days. Please 
resist the urge to give away copies of copyrighted material. 
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Line Listings 

Line listings are in standard 38-column format, with special conven- 
tions for representing unprintable characters: 

You must type underlined characters, including blank spaces, in in- 
verse video. 

When graphics or control (CTRL) characters are included in a string 
(between quotation marks), a nearby REM statement will make note of 
it; in such cases, graphics characters appear as the corresponding 
low/er-case letters, and control characters appear as the correspond- 
ing unshifted key symbols. For example: the lower-case letter s 
represents a graphic cross, which you type by pressing the S key while 
holding down the CTRL key; the = sign represents CTRL-down-arrow, 
which you type by pressing and releasing the ESC key, then pressing 
the = key while holding down CTRL. For more information about 
entering control characters, refer to Appendix F and the back cover of 
your Atari BASIC Reference Manual. 

There are two exceptions to our above convention: A clear-screen 
character (ESC SHIFT-CLEAR) appears in our listings as a right-hand 
brace, which looks like this: }. The other exception is that a shifted = 
sign appears as a broken vertical line: I . 

Occasionally, a program will demand that we vary from these con- 
ventions. In such a case, a nearby REM statement or the program's in- 
troductory article will clearly note the special instructions. 

Be sure to read each program's explanatory article — it may con- 
tain special, important information about the program. Also, use 
SWAT on your program, and get the free reprint if you don't have 
SWAT. 



System Requirements 



The necessary memory and other equipment you need to run a pro- 
gram are listed in the introductory paragraph of the article for each 
program. (Also see the SoftSlde Adventure Series elsewhere in this 
booklet.) 
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Tired of Typing? 



Use And Enjoy These Programs Right 
Away! 

Avoid Worry About Typos! 

Get Additional Programs to Enjoy 
Without Typing. 




Order this Issue's Programs on Disk or Cassette! 

Send the coupon below to: 

SoftSide Publications, Inc. 

6 South Street 

Milford, NH 03055 
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ORDER THOS ISSUE'S MEDIA 

Having difficulty finding the time to input the programs 
from this issue of SoftSide Selections? Don't despair — the 
cassette and disk versions are still available! And, each DV 
{disk version) contains an additional program 
n #39 DV $16.00 D #39 CV $8.00 

I own an D Apple® D IBM® PC (Disk Only - No InhancemenI) 
D Atari's DTRS-60*Mod I DTRS-BO^Mod III 



City/Slate 

D Check or Money Order 

D MasterCard D VISA 
Name of Cardholder 



-Zip- 



MC#andlnlerbank#/VISA# 

Exp Date Signature- 



3elcctionj 




FLi? 
-EH 



TRflPPEC 



lln.iWIIIWi 



Prices subject to change without notice Apple*, IBM*, Atari* and TRS-60* are registered trademarks of The Apple Computer 
Company, International Business Machines, Inc., Warner Communications, and The Tandy Corporation respectively. 
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• Challenge your computer's formidable 
electronic intellect in Flip-It il, SoftSlde's 
version of Reversi. 

• An old Norwegian board game gets 
some intelligence, too, in Trapped. 

• Add the lightning speed of 6502 
machine language to the sort routines of 
SoftSlde's Developing Database and your 
own programs! 

• DV Bonus: Success — how do you 

define it? A unique board game that's an 
arcade game, too... 

• Adventure: It's About Time — The 

future of the Earth is at stake, and you 
must use your Time Machine to prevent 
the evil Henry Bowman from using his 
apocalyptic B Bomb. 
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